define add 
proc(n)
  i := n;
  s := 0;
  while i do s := s + i;  i := i-1 od;
  return := s
end;

define makeList proc(n)
  newlist := [1,2,3];
  return := newlist
end;

n := 100;
s := add(n);
q:=[1,3,[5,2,[1],4,[]],[0],7,[]];
z:=makeList(1);
o:= [1,2,3]||[1,3,[5,2,[1],4,[]],[0],7,[]];
w:=listp([1,2,3]);
r:=listp(1);